#!perl -T

use Test::More tests => 4;

use Image::DCMTK qw(:ALL);

like (openXMLItem( ), qr/<item card="1" len="10">/, "openXMLItem - defaults");
like (openXMLItem({CARDINALITY => 7} ), qr/<item card="7" len="10">/, "openXMLItem - Cardinality");
like (openXMLItem({CARDINALITY => 7, LEN => 5} ), qr/<item card="7" len="5">/, "openXMLItem - Cardinality and Length");
like (openXMLItem({LEN => 5} ), qr/<item card="1" len="5">/, "openXMLItem -  Length");

